op_concat_CH_VS Function

private elemental function op_concat_CH_VS(string_a, string_b) result(concat_string)

Concatenate a character string and a varying string

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string_a
type(varying_string), intent(in) :: string_b

Return Value type(varying_string)


Source Code

  elemental function op_concat_CH_VS (string_a, string_b) result (concat_string)

    character(LEN=*), intent(in)     :: string_a
    type(varying_string), intent(in) :: string_b
    type(varying_string)             :: concat_string


    concat_string = op_concat_VS_VS(var_str(string_a), string_b)

! Finish

    return

  end function op_concat_CH_VS